perm filename SP4INS[1,MUS] blob sn#007318 filedate 1972-07-16 generic text, type T, neo UTF8
00200	<    *****  NOTES  ***** 
00400	
00600	<READ THIS INTO SOUND GENERATING PROGRAM WHEN USING
00800	<NOTE LISTS PREPARED BY 'SCORE' PROGRAMS.
00900	EXTERNAL FUNCTION SPACE4(ARRAY A,ARRAY B,ARRAY C,ARRAY D,
00950	ARRAY E,ARRAY F,ARRAY G,ARRAY H),
01200	SYNTH(ARRAY A),SEE(ARRAY Z),
01400	SEG(ARRAY D), DUR(X,Y,Z); ARRAY F1,F2,F3,F4,F5,F6,F7(512),S1(1200);
01600	VARIABLE MAG, C,CS,D,DS,E,F,FS,G,GS,A,AS,B,
01800	PPPP,PPP,PP,P,MP,MF,FO,FF,FFF,FFFF;
02000	C←261.62;  CS←277.18;  D←293.66;  DS←311.13;  E←329.63;
02200	F←349.23;  FS←369.99;  G←391.99;  GS←415.31;
02400	A←440;    AS←466.16;  B←493.89;
02600	
02800	PPPP←70;  PPP←100;  PP←165;  P←235;  MP←330;
03000	MF←480;  FO←670;  FF←950;  FFF←1300;  FFFF←1900;
03200	
03400	<-- F1 ARRAY MUST BE FILLED FOR INST SIMP TO PLAY;
03800	SRATE←25000;MAG←512/SRATE;SPEED←5;NCHNS←4;
04000